home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / recipe.dxr / 00034_Help text.ls < prev    next >
Encoding:
Text File  |  2000-03-23  |  630 b   |  31 lines
  1. property pSpr, pMember
  2. global gHelpTopicNumber
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   pMember = pSpr.member
  7.   customFont(pSpr.member)
  8.   if gHelpTopicNumber = 0 then
  9.     mRefresh(me, "Pick a Topic from the list at the left")
  10.   end if
  11. end
  12.  
  13. on mRefresh me, newText
  14.   if paused() then
  15.     exit
  16.   end if
  17.   if not isText(pSpr) then
  18.     exit
  19.   end if
  20.   if voidp(newText) or (newText = EMPTY) then
  21.     exit
  22.   end if
  23.   pSpr.member.text = newText
  24.   if charPosToLoc(pMember, length(pMember.text)).locV > pSpr.rect.height then
  25.     pMember.boxType = #scroll
  26.   else
  27.     pMember.boxType = #fixed
  28.   end if
  29.   pMember.scrollTop = 0
  30. end
  31.